home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 051-075 / disk_065 / closewb / closewb.c < prev    next >
C/C++ Source or Header  |  1992-05-06  |  392b  |  19 lines
  1.  
  2. long IntuitionBase;
  3.  
  4. extern long OpenLibrary();
  5.  
  6. main()
  7. {
  8.     IntuitionBase = OpenLibrary("intuition.library", 0);
  9.     if (IntuitionBase) {
  10.         puts ("closing the workbench screen");
  11.         if (CloseWorkBench() == 0)
  12.             puts ("unable to close the workbench screen");
  13.         CloseLibrary(IntuitionBase);
  14.     } else {
  15.         puts ("unable to open intuition.library");
  16.     }
  17. }
  18.  
  19.